home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfdelinfo.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  554b  |  31 lines
  1.  
  2. /* $Id: Pvmfdelinfo.c,v 1.1 1997/06/27 16:22:37 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\src\pvmwin.h"
  6. #endif
  7.  
  8. #include "pvm3.h"
  9. #include "pvm_consts.h"
  10.  
  11. void __fortran
  12. PVMFDELINFO (name_ptr, mbx_index, flags, info, name_len)
  13. char * name_ptr; int name_len;
  14. int *mbx_index, *flags, *info;
  15. {
  16.  
  17.     char tname[MAX_MBOX_NAME + 1];
  18.  
  19.     /*
  20.     *  Copy the mailbox name to make sure there is
  21.     * a NUL at the end.
  22.     */
  23.     if (ftocstr(tname, sizeof(tname), name_ptr, name_len)) {
  24.         *info = PvmBadParam;
  25.         return;
  26.     }
  27.  
  28.     *info = pvm_delinfo(tname, *mbx_index, *flags);
  29. }
  30.  
  31.